© Numerical Algorithms Group, 2002.

f04mbf_aprod User Supplied Function Description

             [NAGWare Gateway Generator]

Copyright (c) 1993 by the Numerical Algorithms Group Ltd

aprod
(see also f04mbf) 


iflag                                 integer
n                                     integer
x (n)                                 real
y (n)                                 real

[iflag,y] = aprod(iflag,n,x)


 function [iflag,y] = aprod(iflag,n,x)